home *** CD-ROM | disk | FTP | other *** search
/ USGS: National Coal Resou…s & Great Plains Regions / USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso / PROGRAM / Tools / neatline.avx < prev    next >
Encoding:
Text File  |  1998-03-19  |  32.7 KB  |  747 lines
  1. /3.1
  2. (Extension.1
  3.     Name:    "Neatline"
  4.     Dependencies:    "$AVBIN/avdlog.dll\n"
  5.     FirstRootClassName:    "AVDLog"
  6.     Roots:    2
  7.     Roots:    80
  8.     Roots:    81
  9.     Roots:    82
  10.     Roots:    83
  11.     Roots:    84
  12.     Roots:    85
  13.     Roots:    86
  14.     Roots:    87
  15.     Roots:    88
  16.     Roots:    89
  17.     Roots:    90
  18.     Version:    30
  19.     About:    "Layout button for creating neatlines"
  20.     CanUnloadScript:    91
  21.     UnloadScript:    92
  22.     ExtVersion:    1
  23. )
  24.  
  25. (AVDLog.2
  26.     Name:    "Neatline Settings"
  27.     X:    19
  28.     Y:    148
  29.     W:    512
  30.     H:    303
  31.     HelpTopic:    "Layout_Neatline_Dialog"
  32.     ConstrainedControlNames:    3
  33.     ConstrainedControlNames:    4
  34.     Constraints:    5
  35.     Constraints:    6
  36.     Server:    7
  37.     ControlPanel:    8
  38.     Title:    "Neatline Settings"
  39.     EscapeEnabled:    1
  40.     Modal:    1
  41.     AlwaysOnTop:    1
  42.     HasTitleBar:    1
  43.     Closeable:    1
  44.     Open:    "Graphic.Neatline Open"
  45.     DefaultButton:    79
  46. )
  47.  
  48. (AVStr.3
  49.     S:    "NLCancel"
  50. )
  51.  
  52. (AVStr.4
  53.     S:    "NLOK"
  54. )
  55.  
  56. (Numb.5
  57.     N:    85.00000000000000
  58. )
  59.  
  60. (Numb.6
  61.     N:    85.00000000000000
  62. )
  63.  
  64. (Nil.7
  65. )
  66.  
  67. (CPanel.8
  68.     Child:    9
  69.     Child:    39
  70.     Child:    65
  71.     Child:    66
  72.     Child:    67
  73.     Child:    68
  74.     Child:    69
  75.     Child:    70
  76.     ResBox:    71
  77.     ResBox:    72
  78.     ResBox:    73
  79.     ResBox:    74
  80.     ResBox:    75
  81.     ResBox:    76
  82.     ResBox:    77
  83.     ResBox:    78
  84.     Listening:    1
  85. )
  86.  
  87. (CPanel.9
  88.     InternalName:    "aControlPanel4"
  89.     Child:    10
  90.     Child:    11
  91.     Child:    12
  92.     Child:    14
  93.     Child:    16
  94.     Child:    18
  95.     Child:    20
  96.     Child:    21
  97.     Child:    22
  98.     Child:    23
  99.     Child:    24
  100.     Child:    25
  101.     Constraints:    0x55
  102.     ResBox:    27
  103.     ResBox:    28
  104.     ResBox:    29
  105.     ResBox:    30
  106.     ResBox:    31
  107.     ResBox:    32
  108.     ResBox:    33
  109.     ResBox:    34
  110.     ResBox:    35
  111.     ResBox:    36
  112.     ResBox:    37
  113.     ResBox:    38
  114.     Label:    "Positioning information"
  115.     VisibleBorder:    1
  116.     Listening:    1
  117. )
  118.  
  119. (TextLabel.10
  120.     InternalName:    "aTextLabel7"
  121.     Constraints:    0x55
  122.     Label:    "Enter the distance the neatline should be\noffset from each side of the graphics:"
  123.     Listening:    1
  124. )
  125.  
  126. (TextLabel.11
  127.     InternalName:    "unitText"
  128.     Constraints:    0x55
  129.     Label:    "(units):"
  130.     Listening:    1
  131. )
  132.  
  133. (TextLine.12
  134.     InternalName:    "TopOffset"
  135.     Text:    "0.25"
  136.     Constraints:    0x55
  137.     Listening:    1
  138.     TextType:    13
  139.     NextControl:    7
  140. )
  141.  
  142. (AVEnum.13
  143.     Name:    "TEXTLINE_TYPE_REAL"
  144. )
  145.  
  146. (TextLine.14
  147.     InternalName:    "LeftOffset"
  148.     Text:    "0.25"
  149.     Constraints:    0x55
  150.     Listening:    1
  151.     TextType:    15
  152.     NextControl:    7
  153. )
  154.  
  155. (AVEnum.15
  156.     Name:    "TEXTLINE_TYPE_REAL"
  157. )
  158.  
  159. (TextLine.16
  160.     InternalName:    "BottomOffset"
  161.     Text:    "0.25"
  162.     Constraints:    0x55
  163.     Listening:    1
  164.     TextType:    17
  165.     NextControl:    7
  166. )
  167.  
  168. (AVEnum.17
  169.     Name:    "TEXTLINE_TYPE_REAL"
  170. )
  171.  
  172. (TextLine.18
  173.     InternalName:    "RightOffset"
  174.     Text:    "0.25"
  175.     Constraints:    0x55
  176.     Listening:    1
  177.     TextType:    19
  178.     NextControl:    7
  179. )
  180.  
  181. (AVEnum.19
  182.     Name:    "TEXTLINE_TYPE_REAL"
  183. )
  184.  
  185. (TextLabel.20
  186.     InternalName:    "TopText"
  187.     Constraints:    0x55
  188.     Label:    "Top:"
  189.     Listening:    1
  190. )
  191.  
  192. (TextLabel.21
  193.     InternalName:    "BottomText"
  194.     Constraints:    0x55
  195.     Label:    "Bottom:"
  196.     Listening:    1
  197. )
  198.  
  199. (TextLabel.22
  200.     InternalName:    "LeftText"
  201.     Constraints:    0x55
  202.     Label:    "Left:"
  203.     Listening:    1
  204. )
  205.  
  206. (TextLabel.23
  207.     InternalName:    "RightText"
  208.     Constraints:    0x55
  209.     Label:    "Right:"
  210.     Listening:    1
  211. )
  212.  
  213. (AVCBox.24
  214.     InternalName:    "OffsetEqual"
  215.     Help:    "Check this to offset the neatline equally on all sides"
  216.     Listening:    1
  217.     Selected:    1
  218.     Label:    "Offset equally"
  219.     Click:    "Graphic.Neatline Offset Option"
  220.     Constraints:    0x55
  221. )
  222.  
  223. (TextLine.25
  224.     InternalName:    "EqualOffset"
  225.     Text:    "0.25"
  226.     Constraints:    0x55
  227.     Listening:    1
  228.     TextType:    26
  229.     NextControl:    7
  230. )
  231.  
  232. (AVEnum.26
  233.     Name:    "TEXTLINE_TYPE_REAL"
  234. )
  235.  
  236. (RectD.27
  237.     Left:    9.00000000000000
  238.     Top:    57.00000000000000
  239.     Right:    274.00000000000000
  240.     Bottom:    16.00000000000000
  241. )
  242.  
  243. (RectD.28
  244.     Left:    195.00000000000000
  245.     Top:    75.00000000000000
  246.     Right:    279.00000000000000
  247.     Bottom:    56.00000000000000
  248. )
  249.  
  250. (RectD.29
  251.     Left:    57.00000000000000
  252.     Top:    124.00000000000000
  253.     Right:    117.00000000000000
  254.     Bottom:    104.00000000000000
  255. )
  256.  
  257. (RectD.30
  258.     Left:    188.00000000000000
  259.     Top:    124.00000000000000
  260.     Right:    248.00000000000000
  261.     Bottom:    104.00000000000000
  262. )
  263.  
  264. (RectD.31
  265.     Left:    57.00000000000000
  266.     Top:    146.00000000000000
  267.     Right:    117.00000000000000
  268.     Bottom:    126.00000000000000
  269. )
  270.  
  271. (RectD.32
  272.     Left:    188.00000000000000
  273.     Top:    146.00000000000000
  274.     Right:    248.00000000000000
  275.     Bottom:    126.00000000000000
  276. )
  277.  
  278. (RectD.33
  279.     Left:    10.00000000000000
  280.     Top:    124.00000000000000
  281.     Right:    53.00000000000000
  282.     Bottom:    107.00000000000000
  283. )
  284.  
  285. (RectD.34
  286.     Left:    10.00000000000000
  287.     Top:    145.00000000000000
  288.     Right:    66.00000000000000
  289.     Bottom:    128.00000000000000
  290. )
  291.  
  292. (RectD.35
  293.     Left:    150.00000000000000
  294.     Top:    122.00000000000000
  295.     Right:    191.00000000000000
  296.     Bottom:    107.00000000000000
  297. )
  298.  
  299. (RectD.36
  300.     Left:    150.00000000000000
  301.     Top:    144.00000000000000
  302.     Right:    194.00000000000000
  303.     Bottom:    128.00000000000000
  304. )
  305.  
  306. (RectD.37
  307.     Left:    7.00000000000000
  308.     Top:    91.00000000000000
  309.     Right:    193.00000000000000
  310.     Bottom:    68.00000000000000
  311. )
  312.  
  313. (RectD.38
  314.     Left:    188.00000000000000
  315.     Top:    92.00000000000000
  316.     Right:    248.00000000000000
  317.     Bottom:    72.00000000000000
  318. )
  319.  
  320. (CPanel.39
  321.     InternalName:    "aControlPanel3"
  322.     Child:    40
  323.     Child:    41
  324.     Child:    42
  325.     Child:    43
  326.     Child:    44
  327.     Child:    45
  328.     Child:    46
  329.     Child:    47
  330.     Child:    48
  331.     Child:    49
  332.     Child:    50
  333.     Child:    51
  334.     Constraints:    0x55
  335.     ResBox:    53
  336.     ResBox:    54
  337.     ResBox:    55
  338.     ResBox:    56
  339.     ResBox:    57
  340.     ResBox:    58
  341.     ResBox:    59
  342.     ResBox:    60
  343.     ResBox:    61
  344.     ResBox:    62
  345.     ResBox:    63
  346.     ResBox:    64
  347.     Label:    "Appearance settings"
  348.     VisibleBorder:    1
  349.     Listening:    1
  350. )
  351.  
  352. (AVCBBox.40
  353.     InternalName:    "NeatWidth"
  354.     Help:    "Choose a width for the outline of your neatline"
  355.     NextControl:    7
  356.     ContentKind:    4
  357.     Constraints:    0x55
  358.     Listening:    1
  359. )
  360.  
  361. (AVCBox.41
  362.     InternalName:    "RoundCorners"
  363.     Help:    "Check this box to round the corners of your neatline"
  364.     Listening:    1
  365.     Label:    "Round the corners"
  366.     Click:    "Graphic.Neatline Round"
  367.     Constraints:    0x55
  368. )
  369.  
  370. (TextLabel.42
  371.     InternalName:    "aTextLabel2"
  372.     Constraints:    0x55
  373.     Label:    "Click on a border style:"
  374.     Listening:    1
  375. )
  376.  
  377. (AVCBBox.43
  378.     InternalName:    "CornerRadius"
  379.     Help:    "Choose a distance to round the corners"
  380.     NextControl:    7
  381.     ContentKind:    4
  382.     Constraints:    0x55
  383.     Listening:    1
  384. )
  385.  
  386. (AVCBBox.44
  387.     InternalName:    "BGColor"
  388.     Help:    "Choose a background fill color for your neatline"
  389.     NextControl:    7
  390.     ContentKind:    4
  391.     Constraints:    0x55
  392.     Listening:    1
  393.     Select:    "Graphic.Neatline Can Drop Shadow"
  394. )
  395.  
  396. (AVCBox.45
  397.     InternalName:    "DropShadow"
  398.     Help:    "Check this to add a drop-shadow to your neatline"
  399.     Listening:    1
  400.     Label:    "Drop-shadow"
  401.     Click:    "Graphic.Neatline DropShadow Update"
  402.     Constraints:    0x55
  403. )
  404.  
  405. (AVCBBox.46
  406.     InternalName:    "DSColor"
  407.     Help:    "Choose a drop shadow color"
  408.     NextControl:    7
  409.     ContentKind:    4
  410.     Constraints:    0x55
  411.     Listening:    1
  412. )
  413.  
  414. (TextLabel.47
  415.     InternalName:    "RadLab"
  416.     Constraints:    0x55
  417.     Label:    "Radius:"
  418.     Listening:    1
  419. )
  420.  
  421. (TextLabel.48
  422.     InternalName:    "aTextLabel4"
  423.     Constraints:    0x55
  424.     Label:    "Width (pts.):"
  425.     Listening:    1
  426. )
  427.  
  428. (TextLabel.49
  429.     InternalName:    "aTextLabel5"
  430.     Constraints:    0x55
  431.     Label:    "Fill color:"
  432.     Listening:    1
  433. )
  434.  
  435. (TextLabel.50
  436.     InternalName:    "DSLabel"
  437.     Constraints:    0x55
  438.     Label:    "Shadow color:"
  439.     Listening:    1
  440. )
  441.  
  442. (AVLBox.51
  443.     InternalName:    "NeatStyle"
  444.     Help:    "Click on a border style to select it"
  445.     NextControl:    7
  446.     ContentKind:    4
  447.     Constraints:    0x55
  448.     ColumnCount:    1
  449.     Listening:    1
  450.     VerticalScroll:    1
  451.     Select:    "Graphic.Neatline Nice Size"
  452.     SelectionStyle:    52
  453. )
  454.  
  455. (AVEnum.52
  456.     Name:    "LISTBOX_SELECTION_SINGLECELL"
  457. )
  458.  
  459. (RectD.53
  460.     Left:    118.00000000000000
  461.     Top:    268.00000000000000
  462.     Right:    202.00000000000000
  463.     Bottom:    162.00000000000000
  464. )
  465.  
  466. (RectD.54
  467.     Left:    11.00000000000000
  468.     Top:    117.00000000000000
  469.     Right:    182.00000000000000
  470.     Bottom:    100.00000000000000
  471. )
  472.  
  473. (RectD.55
  474.     Left:    9.00000000000000
  475.     Top:    42.00000000000000
  476.     Right:    189.00000000000000
  477.     Bottom:    18.00000000000000
  478. )
  479.  
  480. (RectD.56
  481.     Left:    118.00000000000000
  482.     Top:    226.00000000000000
  483.     Right:    202.00000000000000
  484.     Bottom:    123.00000000000000
  485. )
  486.  
  487. (RectD.57
  488.     Left:    118.00000000000000
  489.     Top:    364.00000000000000
  490.     Right:    202.00000000000000
  491.     Bottom:    185.00000000000000
  492. )
  493.  
  494. (RectD.58
  495.     Left:    10.00000000000000
  496.     Top:    232.00000000000000
  497.     Right:    141.00000000000000
  498.     Bottom:    210.00000000000000
  499. )
  500.  
  501. (RectD.59
  502.     Left:    118.00000000000000
  503.     Top:    399.00000000000000
  504.     Right:    202.00000000000000
  505.     Bottom:    234.00000000000000
  506. )
  507.  
  508. (RectD.60
  509.     Left:    16.00000000000000
  510.     Top:    140.00000000000000
  511.     Right:    117.00000000000000
  512.     Bottom:    122.00000000000000
  513. )
  514.  
  515. (RectD.61
  516.     Left:    9.00000000000000
  517.     Top:    178.00000000000000
  518.     Right:    137.00000000000000
  519.     Bottom:    161.00000000000000
  520. )
  521.  
  522. (RectD.62
  523.     Left:    9.00000000000000
  524.     Top:    202.00000000000000
  525.     Right:    134.00000000000000
  526.     Bottom:    184.00000000000000
  527. )
  528.  
  529. (RectD.63
  530.     Left:    16.00000000000000
  531.     Top:    256.00000000000000
  532.     Right:    117.00000000000000
  533.     Bottom:    235.00000000000000
  534. )
  535.  
  536. (RectD.64
  537.     Left:    10.00000000000000
  538.     Top:    92.00000000000000
  539.     Right:    198.00000000000000
  540.     Bottom:    34.00000000000000
  541. )
  542.  
  543. (RButn.65
  544.     InternalName:    "SelGraphics"
  545.     Constraints:    0x55
  546.     Listening:    1
  547.     Label:    "Place around the selected graphics"
  548.     Click:    "Graphic.Neatline Option Update"
  549. )
  550.  
  551. (RButn.66
  552.     InternalName:    "AllGraphics"
  553.     Constraints:    0x55
  554.     Listening:    1
  555.     Label:    "Place around all graphics"
  556.     Click:    "Graphic.Neatline Option Update"
  557. )
  558.  
  559. (LButn.67
  560.     InternalName:    "NLCancel"
  561.     Label:    "Cancel"
  562.     Click:    "Graphic.Neatline Close"
  563. )
  564.  
  565. (RButn.68
  566.     InternalName:    "InsetFrom"
  567.     Constraints:    0x55
  568.     Listening:    1
  569.     Label:    "Inset from margins"
  570.     Click:    "Graphic.Neatline Option Update"
  571. )
  572.  
  573. (LButn.69
  574.     InternalName:    "NLOK"
  575.     Help:    "Adds the neatline to your layout"
  576.     Label:    "OK"
  577.     Click:    "Graphic.Neatline"
  578. )
  579.  
  580. (AVCBox.70
  581.     InternalName:    "GroupWith"
  582.     Listening:    1
  583.     Label:    "Group neatline with graphics"
  584.     Constraints:    0x55
  585. )
  586.  
  587. (RectD.71
  588.     Left:    9.00000000000000
  589.     Top:    266.00000000000000
  590.     Right:    293.00000000000000
  591.     Bottom:    108.00000000000000
  592. )
  593.  
  594. (RectD.72
  595.     Left:    297.00000000000000
  596.     Top:    266.00000000000000
  597.     Right:    506.00000000000000
  598.     Bottom:    6.00000000000000
  599. )
  600.  
  601. (RectD.73
  602.     Left:    13.00000000000000
  603.     Top:    32.00000000000000
  604.     Right:    253.00000000000000
  605.     Bottom:    10.00000000000000
  606. )
  607.  
  608. (RectD.74
  609.     Left:    13.00000000000000
  610.     Top:    52.00000000000000
  611.     Right:    253.00000000000000
  612.     Bottom:    29.00000000000000
  613. )
  614.  
  615. (RectD.75
  616.     Left:    333.00000000000000
  617.     Top:    297.00000000000000
  618.     Right:    415.00000000000000
  619.     Bottom:    272.00000000000000
  620. )
  621.  
  622. (RectD.76
  623.     Left:    13.00000000000000
  624.     Top:    71.00000000000000
  625.     Right:    253.00000000000000
  626.     Bottom:    48.00000000000000
  627. )
  628.  
  629. (RectD.77
  630.     Left:    424.00000000000000
  631.     Top:    297.00000000000000
  632.     Right:    505.00000000000000
  633.     Bottom:    272.00000000000000
  634. )
  635.  
  636. (RectD.78
  637.     Left:    12.00000000000000
  638.     Top:    100.00000000000000
  639.     Right:    227.00000000000000
  640.     Bottom:    79.00000000000000
  641. )
  642.  
  643. (Nil.79
  644. )
  645.  
  646. (Script.80
  647.     Name:    "Graphic.Neatline"
  648.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\n\nSelGraphics = MTD.FindByName(\"SelGraphics\")\nAllGraphics = MTD.FindByName(\"AllGraphics\")\nInsetFrom = MTD.FindByName(\"InsetFrom\").IsSelected\nunitText = MTD.FindByName(\"unitText\")\nOffsetEqual = MTD.FindByName(\"OffsetEqual\").IsSelected\nEqualOffset = MTD.FindByName(\"EqualOffset\").GetText.AsNumber\nTopText = MTD.FindByName(\"TopText\")\nBottomText = MTD.FindByName(\"BottomText\")\nLeftText = MTD.FindByName(\"LeftText\")\nRightText = MTD.FindByName(\"RightText\")\nTopOffset = MTD.FindB
  649. yName(\"TopOffset\").GetText.AsNumber\nBottomOffset = MTD.FindByName(\"BottomOffset\").GetText.AsNumber\nLeftOffset = MTD.FindByName(\"LeftOffset\").GetText.AsNumber\nRightOffset = MTD.FindByName(\"RightOffset\").GetText.AsNumber\nRoundCorners = MTD.FindByName(\"RoundCorners\").IsSelected\nNeatStyle = MTD.FindByName(\"NeatStyle\").GetCurrentRow\nNeatWidth = MTD.FindByName(\"NeatWidth\").GetSelection.AsNumber\nBGColor = MTD.FindByName(\"BGColor\").GetSelection.GetColor\nDropShadow = MTD.FindByName(\"DropShadow\").IsSelected\nRoundCorn
  650. ers = MTD.FindByName(\"RoundCorners\").IsSelected\nCornerRadius = MTD.FindByName(\"CornerRadius\").GetSelection\nDSColor = MTD.FindByName(\"DSColor\").GetSelection\nGroupWith = MTD.FindByName(\"GroupWith\")\ntheLayout = av.GetActiveDoc\ntheGraphics = theLayout.GetGraphics\nOffset = true\n\n\nif (BGColor.IsTransparent.Not) then\n  rf = RasterFill.Make\n  rf.SetStyle(#RASTERFILL_STYLE_OPAQUESTIPPLE)\n  rf.SetBGColor(BGColor)\nelse\n  rf = RasterFill.Make\nend\n\nSelSet = nil\nif (theGraphics.Count > 0) then\n  if (SelGraphics.IsSelecte
  651. d) then\n    BaseRect = theGraphics.ReturnSelectedExtent\n    SelSet = theGraphics.GetSelected\n  else\n    BaseRect = theGraphics.ReturnExtent\n  end\nelse\n  BaseRect = theLayout.Getdisplay.ReturnMarginExtent\n  Offset = false\nend\n\nif (InsetFrom) then\n  BaseRect = theLayout.Getdisplay.ReturnMarginExtent\n  Offset = false\nend\n\nif ((Offset) and (OffsetEqual)) then\n  NRect = BaseRect.ExpandBy((NeatWidth/72) + EqualOffset)\nelseif ((Offset) and (Not OffsetEqual)) then\n  LLRect = BaseRect.Clone.ExpandBy(NeatWidth/72)\n  
  652. URRect = BaseRect.Clone.ExpandBy(NeatWidth/72)\n  LLRect.SetOrigin(LLRect.ReturnOrigin - (LeftOffset@BottomOffset))\n  URRect.SetORigin(URRect.ReturnOrigin + (RightOffSet@TopOffset))\n  NRect = LLRect.UnionWith(URRect)\nelseif ((Not Offset) and (OffsetEqual)) then\n  NRect = BaseRect.InsetBy((NeatWidth/72) + EqualOffset)\nelseif ((Not Offset) and (Not OffsetEqual)) then\n  LLRect = BaseRect.Clone.InsetBy(NeatWidth/72)\n  URRect = BaseRect.Clone.InsetBy(NeatWidth/72)\n  LLRect.SetOrigin(LLRect.ReturnOrigin + (LeftOff
  653. set@BottomOffset))\n  URRect.SetORigin(URRect.ReturnOrigin - (RightOffSet@TopOffset))\n  NRect = LLRect.UnionWith(URRect)\nend\nif (DropShadow) then\n  dsf = RasterFill.Make\n  dsf.SetStyle(#RASTERFILL_STYLE_SOLID)\n  dsf.SetColor(DSColor.GetColor)\n  dsf.SetOLWidth(0)\nend\n\ntheGraphics.UnSelectAll\nif (NeatStyle = 0) then\n  if (RoundCorners) then\n    RS = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n    r = GraphicShape.Make(RS.AsPolyLine)\n  else\n    RS = NRect.AsPolygon\n    NPL = RS.AsPolyline\n    r = G
  654. raphicShape.Make(NPL)\n  end\n  r.GetSymbol.SetWidth(NeatWidth)\n  r.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  theLayout.GetGraphics.AddBatch(r)\n  r.setselected(true)\n  if (DropShadow) then\n    ds = GraphicShape.Make(RS.Clone)\n    ds.Offset(0.25@(-0.25))\n    ds.SetSymbol(dsf)\n    theGraphics.AddBatch(ds)\n  end\n  if (BGColor.IsTransparent.Not) then\n    rb = GraphicShape.Make(RS.Clone)\n    rb.SetSymbol(rf)\n    theGraphics.AddBatch(rb)\n    theGraphics.MoveSelec
  655. tedToFront\n    rb.SetSelected(true)\n  end\nelseif (NeatStyle = 1) then\n  if (RoundCorners) then\n    RS1 = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n    RS2 = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n    r1 = GraphicShape.Make(RS1.AsPolyLine)\n    r2 = GraphicShape.Make(RS2.AsPolyLine)\n    RSB1 = NRect.Clone.InsetBy(NeatWidth/72)\n    RSB2 = NRect.Clone.ExpandBy(NeatWidth/72)\n    r1.SetBounds(RSB1.Clone)\n    r2.SetBounds(RSB2.Clone)\n  else\n    RS1 = NRect.InsetBy(NeatWidth/72)\n   
  656.  NPL1 = RS1.AsPolygon.AsPolyline\n    RS2 = NRect.ExpandBy(NeatWidth/72)\n    NPL2 = RS2.AsPolygon.AsPolyline\n    RSB2 = RS2.Clone\n    r1 = GraphicShape.Make(NPL1)\n    r2 = GraphicShape.Make(NPL2)\n  end\n  r2.GetSymbol.SetWidth(0.2)\n  r1.GetSymbol.SetWidth(0.2)\n  r1.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r1.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  r2.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r2.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  theLayout.GetGraphics.AddBatch(r1)\n  theLayout.GetGra
  657. phics.AddBatch(r2)\n  r1.setselected(true)\n  r2.setselected(true)\n  if (DropShadow) then\n    ds = GraphicShape.Make(RS2.Clone)\n    ds.Offset(0.25@(-0.25))\n    ds.SetSymbol(dsf)\n    theGraphics.AddBatch(ds)\n  end\n  if (BGColor.IsTransparent.Not) then\n    rb = GraphicShape.Make(RS2.Clone)\n    rb.SetSymbol(rf)\n    rb.SetBounds(RSB2.Clone)\n    theGraphics.Addbatch(rb)\n    theGraphics.MoveSelectedToFront\n    rb.SetSelected(true)\n  end\nelseif (NeatStyle = 2) then\n  if (RoundCorners) then\n    RS1 = av.Run(\"Graphic.
  658. RoundRectCorners\",{NRect, CornerRadius})\n    RS2 = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n    r1 = GraphicShape.Make(RS1.AsPolyLine)\n    r2 = GraphicShape.Make(RS2.AsPolyLine)\n    RSB1 = NRect.Clone.InsetBy(NeatWidth/72)\n    RSB2 = NRect.Clone.ExpandBy(NeatWidth/72)\n    r1.SetBounds(RSB1.Clone)\n    r2.SetBounds(RSB2.Clone)\n  else\n    RS1 = NRect.InsetBy(NeatWidth/72)\n    NPL1 = RS1.AsPolygon.AsPolyline\n    RS2 = NRect.ExpandBy(NeatWidth/72)\n    NPL2 = RS2.AsPolygon.AsPolyline\n    RSB2 = RS
  659. 2.Clone\n    r1 = GraphicShape.Make(NPL1)\n    r2 = GraphicShape.Make(NPL2)\n  end\n  r2.GetSymbol.SetWidth(0.2)\n  r1.GetSymbol.SetWidth(NeatWidth * 0.62)\n  r1.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r1.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  r2.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r2.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  theLayout.GetGraphics.AddBatch(r1)\n  theLayout.GetGraphics.AddBatch(r2)\n  r1.setselected(true)\n  r2.setselected(true)\n  if (DropShadow) then\n    ds = GraphicShap
  660. e.Make(RS2.Clone)\n    ds.Offset(0.25@(-0.25))\n    ds.SetSymbol(dsf)\n    theGraphics.AddBatch(ds)\n  end\n  if (BGColor.IsTransparent.Not) then\n    rb = GraphicShape.Make(RS2.Clone)\n    rb.SetSymbol(rf)\n    rb.SetBounds(RSB2.Clone)\n    theGraphics.Addbatch(rb)\n    theGraphics.MoveSelectedToFront\n    rb.SetSelected(true)\n  end\nelseif (NeatStyle = 3) then\n  if (RoundCorners) then\n    RS1 = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n    RS2 = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n
  661.     RS3 = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n    r1 = GraphicShape.Make(RS1.AsPolyLine)\n    r2 = GraphicShape.Make(RS2.AsPolyLine)\n    r3 = GraphicShape.Make(RS2.AsPolyLine)\n    RSB1 = NRect.Clone.InsetBy(NeatWidth/72)\n    RSB2 = NRect.Clone\n    RSB3 = NRect.Clone.ExpandBy(NeatWidth/72)\n    r1.SetBounds(RSB2.Clone)\n    r2.SetBounds(RSB1.Clone)\n    r3.SetBounds(RSB3.Clone)\n  else\n    RS1 = NRect.Clone.InsetBy(NeatWidth/72)\n    NPL1 = RS1.AsPolygon.AsPolyline\n    RS2 = NRect.Clone\n    NP
  662. L2 = RS2.AsPolygon.AsPolyline\n    RS3 = NRect.Clone.ExpandBy(NeatWidth/72)\n    NPL3 = RS3.AsPolygon.AsPolyline\n    RSB3 = RS3.Clone\n    r1 = GraphicShape.Make(NPL1)\n    r2 = GraphicShape.Make(NPL2)\n    r3 = GraphicShape.Make(NPL3)\n  end  \n  r1.GetSymbol.SetWidth(0.2)\n  r2.GetSymbol.SetWidth(0.2)\n  r3.GetSymbol.SetWidth(0.2)\n  r1.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r1.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  r2.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r2.GetSymbol.SetJoinStyle(#BASICPEN_
  663. JOIN_MITER)\n  r3.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r3.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  theLayout.GetGraphics.AddBatch(r1)\n  theLayout.GetGraphics.AddBatch(r2)\n  theLayout.GetGraphics.AddBatch(r3)\n  r1.setselected(true)\n  r2.setselected(true)\n  r3.setselected(true)\n  if (DropShadow) then\n    ds = GraphicShape.Make(RS3.Clone)\n    ds.SetBounds(RSB3.Clone)\n    ds.Offset(0.25@(-0.25))\n    ds.SetSymbol(dsf)\n    theGraphics.AddBatch(ds)\n  end\n  if (BGColor.IsTransparent.Not) then\n    rb =
  664.  GraphicShape.Make(RS3.Clone)\n    rb.SetBounds(RSB3.Clone)\n    rb.SetSymbol(rf)\n    theGraphics.AddBatch(rb)\n    theGraphics.MoveSelectedToFront\n    rb.SetSelected(true)\n  end\nelseif (NeatStyle = 4) then\n  if (RoundCorners) then\n    RS1 = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n    RS2 = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n    RS3 = av.Run(\"Graphic.RoundRectCorners\",{NRect, CornerRadius})\n    r1 = GraphicShape.Make(RS1.AsPolyLine)\n    r2 = GraphicShape.Make(RS2.AsPolyLi
  665. ne)\n    r3 = GraphicShape.Make(RS2.AsPolyLine)\n    RSB1 = NRect.Clone.InsetBy(NeatWidth/72)\n    RSB2 = NRect.Clone\n    RSB3 = NRect.Clone.ExpandBy(NeatWidth/72)\n    r1.SetBounds(RSB1.Clone)\n    r2.SetBounds(RSB2.Clone)\n    r3.SetBounds(RSB3.Clone)\n  else\n    RS1 = NRect.Clone.InsetBy(NeatWidth/72)\n    NPL1 = RS1.AsPolygon.AsPolyline\n    RS2 = NRect.Clone\n    NPL2 = RS2.AsPolygon.AsPolyline\n    RS3 = NRect.Clone.ExpandBy(NeatWidth/72)\n    NPL3 = RS3.AsPolygon.AsPolyline\n    RSB3 = RS3.Clone\n    r1 = GraphicS
  666. hape.Make(NPL1)\n    r2 = GraphicShape.Make(NPL2)\n    r3 = GraphicShape.Make(NPL3)\n  end  \n  r1.GetSymbol.SetWidth(0.2)\n  r2.GetSymbol.SetWidth(NeatWidth * 0.62)\n  r3.GetSymbol.SetWidth(0.2)\n  r1.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r1.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  r2.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r2.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  r3.GetSymbol.SetCapStyle(#BASICPEN_CAP_SQUARE)\n  r3.GetSymbol.SetJoinStyle(#BASICPEN_JOIN_MITER)\n  theLayout.GetGraphics.A
  667. ddBatch(r1)\n  theLayout.GetGraphics.AddBatch(r2)\n  theLayout.GetGraphics.AddBatch(r3)\n  r1.setselected(true)\n  r2.setselected(true)\n  r3.setselected(true)\n  if (DropShadow) then\n    ds = GraphicShape.Make(RS3.Clone)\n    ds.Offset(0.25@(-0.25))\n    ds.SetSymbol(dsf)\n    theGraphics.AddBatch(ds)\n  end\n  if (BGColor.IsTransparent.Not) then\n    rb = GraphicShape.Make(RS3.Clone)\n    rb.SetBounds(RSB3.Clone)\n    rb.SetSymbol(rf)\n    theGraphics.Addbatch(rb)\n    theGraphics.MoveSelectedToFront\n    rb.SetSelected(t
  668. rue)\n  end\nend\nif (DropShadow) then\n  ds.SetSelected(true)\nend\ntheGraphics.GroupSelected  \ntheNL = theGraphics.GetSelected.Get(0)\n\nif (SelSet = nil) then\n  theGraphics.MoveSelectedToBack\n  if (GroupWith.IsSelected) then\n    theGraphics.SelectAll\n    theGraphics.GroupSelected\n  end\nelse\n  theGraphics.UnSelectAll\n  theGraphics.MoveSelectedToFront ' Moves the neat line to front\n  for each g in SelSet\n    g.SetSelected(True)\n  end\n  theGraphics.MoveSelectedToFront ' Moves the surrounded graphics to the front, a
  669. top the neatline\n  if (GroupWith.IsSelected) then\n    theNL.SetSelected(true)\n    theGraphics.GroupSelected\n  end\nend\ntheGraphics.EndBatch\ntheGraphics.GetSelected.Get(0).Invalidate\n\nMTD.CLose\n"
  670. )
  671.  
  672. (Script.81
  673.     Name:    "Graphic.Neatline Can Drop Shadow"
  674.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\n\nBGColor = MTD.FindByName(\"BGColor\").GetSelection\nDropShadow = MTD.FindByName(\"DropShadow\")\nDSColor = MTD.FindByName(\"DSColor\")\nDSLabel = MTD.FindByName(\"DSLabel\")\n\ne = false\nif (BGColor.GetColor.IsTransparent.Not) then\n  e = true\nelse  \n  DSColor.SetEnabled(e)\n  DSLabel.SetEnabled(e)\nend\n\nDropShadow.SetEnabled(e)\n\nif (not e) then\n  DropShadow.SetSelected(false)\nend\n"
  675. )
  676.  
  677. (Script.82
  678.     Name:    "Graphic.Neatline Close"
  679.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\nMTD.Close"
  680. )
  681.  
  682. (Script.83
  683.     Name:    "Graphic.Neatline DropShadow Update"
  684.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\n\nDSColor = MTD.FindByName(\"DSColor\")\nDSLabel = MTD.FindByName(\"DSLabel\")\n\ne = false\nif (Self.IsSelected) then\n  e = true\nend\n\nDSColor.SetEnabled(e)\nDSLabel.SetEnabled(e)"
  685. )
  686.  
  687. (Script.84
  688.     Name:    "Graphic.Neatline Nice Size"
  689.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\nSelGraphics = MTD.FindByName(\"SelGraphics\")\nAllGraphics = MTD.FindByName(\"AllGraphics\")\nInsetFrom = MTD.FindByName(\"InsetFrom\")\nNeatStyle = MTD.FindByName(\"NeatStyle\").GetCurrentRow\nNeatWidth = MTD.FindByName(\"NeatWidth\")\nCurrWidth = NeatWidth.GetSelection.AsNumber\n\nLineWeights1 = {\"0.1\",\"0.2\",\"0.25\",\"0.5\",\"0.75\",\"1.0\",\"1.25\",\"1.5\",\"2.0\",\"2.5\",\"3.0\",\"4.0\",\"5.0\",\"6.0\",\"7.0\",\"8.0\"}\nLineWeights2 = {\"2.0\",\"2.5\",\"3.0\",\"4.0\",\"5.0\",\"6.0\",\"7.0\",\"8.0\",\"1.5\",\"1.25\",\"1.0\",\"0.75
  690. \",\"0.5\"}\nLineWeights3 = {\"3.0\",\"4.0\",\"5.0\",\"6.0\",\"7.0\",\"8.0\",\"2.0\",\"2.5\",\"1.5\",\"1.25\",\"1.0\"}\n\nif (NeatStyle = 0) then\n  NeatWidth.DefineFromList(LineWeights1)\nelseif ((NeatStyle = 1) or (NeatStyle = 2)) then\n  NeatWidth.DefineFromList(LineWeights2)\nelse\n  NeatWidth.DefineFromList(LineWeights3)\nend"
  691. )
  692.  
  693. (Script.85
  694.     Name:    "Graphic.Neatline Offset Option"
  695.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\nOffsetEqual = MTD.FindByName(\"OffsetEqual\")\nEqualOffset = MTD.FindByName(\"EqualOffset\")\nTopText = MTD.FindByName(\"TopText\")\nBottomText = MTD.FindByName(\"BottomText\")\nLeftText = MTD.FindByName(\"LeftText\")\nRightText = MTD.FindByName(\"RightText\")\nTopOffset = MTD.FindByName(\"TopOffset\")\nBottomOffset = MTD.FindByName(\"BottomOffset\")\nLeftOffset = MTD.FindByName(\"LeftOffset\")\nRightOffset = MTD.FindByName(\"RightOffset\")\n\nif (OffsetEqual.IsSelected) then\n  EqualOffset.SetEnab
  696. led(true)\n  TopText.SetEnabled(false)\n  TopOffset.SetEnabled(false)\n  BottomText.SetEnabled(false)\n  BottomOffset.SetEnabled(false)\n  LeftText.SetEnabled(false)\n  LeftOffset.SetEnabled(false)\n  RightText.SetEnabled(false)\n  RightOffset.SetEnabled(false)\nelse\n  EqualOffset.SetEnabled(false)\n  TopText.SetEnabled(true)\n  TopOffset.SetEnabled(true)\n  BottomText.SetEnabled(true)\n  BottomOffset.SetEnabled(true)\n  LeftText.SetEnabled(true)\n  LeftOffset.SetEnabled(true)\n  RightText.SetEnabled(true)\n  RightOffset.Se
  697. tEnabled(true)\nend\n\n\n"
  698. )
  699.  
  700. (Script.86
  701.     Name:    "Graphic.Neatline Open"
  702.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\n\nSelGraphics = MTD.FindByName(\"SelGraphics\")\nAllGraphics = MTD.FindByName(\"AllGraphics\")\nunitText = MTD.FindByName(\"unitText\")\nOffsetEqual = MTD.FindByName(\"OffsetEqual\")\nEqualOffset = MTD.FindByName(\"EqualOffset\")\nTopText = MTD.FindByName(\"TopText\")\nBottomText = MTD.FindByName(\"BottomText\")\nLeftText = MTD.FindByName(\"LeftText\")\nRightText = MTD.FindByName(\"RightText\")\nTopOffset = MTD.FindByName(\"TopOffset\")\nBottomOffset = MTD.FindByName(\"BottomOffset\")\nLeftOffset = M
  703. TD.FindByName(\"LeftOffset\")\nRightOffset = MTD.FindByName(\"RightOffset\")\nNeatStyle = MTD.FindByName(\"NeatStyle\")\nNeatWidth = MTD.FindByName(\"NeatWidth\")\nInsetFrom = MTD.FindByName(\"InsetFrom\")\nCornerRadius = MTD.FindByName(\"CornerRadius\")\nBGColor = MTD.FindByName(\"BGColor\")\nDropShadow = MTD.FindByName(\"DropShadow\")\nRoundCorners = MTD.FindByName(\"RoundCorners\")\nGroupWith = MTD.FindByName(\"GroupWith\")\nDSColor = MTD.FindByName(\"DSColor\")\nDSLabel = MTD.FindByName(\"DSLabel\")\nRadLab = MTD.FindByName(\"RadLab\")\n\nOff
  704. setEqual.SetSelected(true)\nOffsetEqual.Click\nRoundCorners.SetSelected(false)\nRoundCorners.Click\nDropShadow.SetEnabled(false)  \nDropShadow.SetSelected(false)   \n\nif ((SelGraphics.IsEnabled.Not) and (AllGraphics.IsEnabled.Not)) then\n  InsetFrom.Select\n  InsetFrom.Click\nend     \n          \nifn1 = \"$AVHOME/tools/bitmaps/solid.bmp\".AsFileName\nifn2 = \"$AVHOME/tools/bitmaps/double.bmp\".AsFileName\nifn3 = \"$AVHOME/tools/bitmaps/dtt.bmp\".AsFileName\nifn4 = \"$AVHOME/tools/bitmaps/triple.bmp\".AsFileName\nifn5 = \"$AVHOME/
  705. tools/bitmaps/ttt.bmp\".AsFileName\n\nif (File.Exists(ifn1)) then\n  Icon1 = Icon.Make(ifn1)\n  Icon2 = Icon.Make(ifn2)\n  Icon3 = Icon.Make(ifn3)\n  Icon4 = Icon.Make(ifn4)\n  Icon5 = Icon.Make(ifn5)\n  Icon1.SetName(\"Single line\")\n  Icon2.SetName(\"Double line\")\n  Icon3.SetName(\"Double thick|thin\")\n  Icon4.SetName(\"Triple line\")\n  Icon5.SetName(\"Triple thin|thick|thin\")\n  lineStyles = {Icon1,Icon2,Icon3,Icon4,Icon5}\nend\n\n\nRadii = {0.125,0.1875, 0.25,0.3125, 0.375, 0.5, 0.625, 0.75}      \nfor each nx in Radii\n  nx.S
  706. etFormat(\"d.dddd\")\nend\nCornerRadius.DefineFromList(Radii)          \n          \nNeatStyle.DefineFromList(lineStyles)  \nNeatStyle.FitRows((0..4),false)\n       \nLineWeights1 = {\"0.1\",\"0.2\",\"0.25\",\"0.5\",\"0.75\",\"1.0\",\"1.25\",\"1.5\",\"2.0\",\"2.5\",\"3.0\",\"4.0\",\"5.0\",\"6.0\",\"7.0\",\"8.0\"}\nNeatWidth.DefineFromList(LineWeights1)\n\nblack = Color.GetBlack\ndGrey = Color.Make\ndGrey.SetRGBList({100,100,100})\nGrey = Color.Make\nGrey.SetRGBList({165,165,165})\nlGrey = Color.Make\nlGrey.SetRGBList({210,210,210})\nwhite = Color.GetWhite\nd
  707. Red = Color.Make\ndRed.SetRGBList({130,0,0})\nRed = Color.GetRed\nlRed = Color.Make\nlRed.SetRGBList({255,180,180})\ndOrange = Color.Make\ndOrange.SetRGBList({140,100,0})\nOrange = Color.Make\nOrange.SetRGBList({255,180,0})\nlOrange = Color.Make\nlOrange.SetRGBList({255,200,135})\ndYellow = Color.Make\ndYellow.SetRGBList({200,200,110})\nYellow = Color.GetYellow\nlYellow = Color.Make\nlYellow.SetRGBList({255,255,200})\ndGreen = Color.Make\ndGreen.SetRGBList({0,110,0})\nGreen = Color.GetGreen\nlGreen = Color.Make\nlGreen.SetRGBL
  708. ist({180,255,180})\ndCyan = Color.Make\ndCyan.SetRGBList({0,130,130})\nCyan = Color.GetCyan\nlCyan = Color.Make\nlCyan.SetRGBList({150,255,255})\ndBlue = Color.Make\ndBlue.SetRGBList({0,0,130})\nBlue = Color.GetBlue\nlBlue = Color.Make\nlBlue.SetRGBList({180,180,255})\ndPurple = Color.Make\ndPurple.SetRGBList({130,0,130})\nPurple = Color.Make\nPurple.SetRGBList({255,0,255})\nlPurple = Color.Make\nlPurple.SetRGBList({255,180,255})\nTransP = color.Make\nTransP.SetTransparent(true)\n\n\n\ntheFGColors = {TransP,Black,White,dGrey,Gre
  709. y,lGrey,dRed,Red,lRed,dOrange,Orange,lOrange,dYellow,Yellow,\n               lYellow,dGreen,Green,lGreen,dCyan,Cyan,lCyan,dBlue,Blue,lBlue,dPurple,Purple,lPurple}\ntheDSColors = {dGrey,Grey,dRed,dOrange,dGreen,DCyan,dBlue,dPurple}\n\ntheFGSyms = {}\nfor each c in theFGColors\n  rx = RasterFill.Make\n  rx.SetStyle(#RASTERFILL_STYLE_SOLID)\n  rx.SetColor(c)\n  theFGSyms.Add(rx.Clone)\nend\ntheDSSyms = {}\nfor each c in theDSColors\n  rx = RasterFill.Make\n  rx.SetStyle(#RASTERFILL_STYLE_SOLID)\n  rx.SetColor(c)\n  theDSSyms.
  710. Add(rx.Clone)\nend\n\nBGColor.DefineFromList(theFGSyms)\nDSColor.DefineFromList(theDSSyms)\nDSColor.SetEnabled(false)\nDSLabel.SetEnabled(false)\nif (av.GetActiveDoc.GetClass.GetClassName = \"Layout\") then\n  if (av.GetActiveDoc.GetGraphics.Count = 0) then\n    GroupWith.SetSelected(false)\n    GroupWith.SetEnabled(false)\n  else\n    GroupWith.SetEnabled(true)\n  end\nend"
  711. )
  712.  
  713. (Script.87
  714.     Name:    "Graphic.Neatline Option Update"
  715.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\nInsetFrom = MTD.FindByName(\"InsetFrom\")\nOffsetEqual = MTD.FindByName(\"OffsetEqual\")\n\nif (InsetFrom.IsSelected) then\n  OffSetEqual.SetLabel(\"Inset equally:\")\nelse\n  OffSetEqual.SetLabel(\"Offset equally:\")\nend"
  716. )
  717.  
  718. (Script.88
  719.     Name:    "Graphic.Neatline Round"
  720.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\nCornerRadius = MTD.FindByName(\"CornerRadius\")\nRadLab = MTD.FindByName(\"RadLab\")\n\ne = false\nif (Self.IsSelected) then\n  e = true\nend\n  \nCornerRadius.SetEnabled(e)\nRadLab.SetEnabled(e)\n  \n  "
  721. )
  722.  
  723. (Script.89
  724.     Name:    "Graphic.Neatline Show"
  725.     SourceCode:    "MTD = av.FindDialog(\"Neatline Settings\")\nSelGraphics = MTD.FindByName(\"SelGraphics\")\nAllGraphics = MTD.FindByName(\"AllGraphics\")\nunitText = MTD.FindByName(\"unitText\")\nOffsetEqual = MTD.FindByName(\"OffsetEqual\")\nEqualOffset = MTD.FindByName(\"EqualOffset\")\nTopText = MTD.FindByName(\"TopText\")\nBottomText = MTD.FindByName(\"BottomText\")\nLeftText = MTD.FindByName(\"LeftText\")\nRightText = MTD.FindByName(\"RightText\")\nTopOffset = MTD.FindByName(\"TopOffset\")\nBottomOffset = MTD.FindByName(\"BottomOffset\")\nLeftOffset = MT
  726. D.FindByName(\"LeftOffset\")\nRightOffset = MTD.FindByName(\"RightOffset\")\nNeatStyle = MTD.FindByName(\"NeatStyle\")\nNeatWidth = MTD.FindByName(\"NeatWidth\")\nInsetFrom = MTD.FindByName(\"InsetFrom\")\n\ntheLayout = av.GetActiveDoc\ntheGraphics = theLayout.GetGraphics\nif (theGraphics.GetSelected.Count > 0) then\n  SelGraphics.SetEnabled(true)\n  AllGraphics.SetEnabled(true)\n  SelGraphics.Select\n  OffSetEqual.SetLabel(\"Offset equally from all sides:\")\nelseif (theGraphics.Count > 0) then\n  SelGraphics.SetEnabled(false)\n  Al
  727. lGraphics.SetEnabled(true)\n  AllGraphics.Select\n  OffSetEqual.SetLabel(\"Offset equally from all sides:\")\nelse\n  OffSetEqual.SetLabel(\"Inset equally from margins:\")\n  SelGraphics.SetEnabled(false)\n  AllGraphics.SetEnabled(false)\nend\nTopText.SetEnabled(false)\nTopOffset.SetEnabled(false)\nBottomText.SetEnabled(false)\nBottomOffset.SetEnabled(false)\nLeftText.SetEnabled(false)\nLeftOffset.SetEnabled(false)\nRightText.SetEnabled(false)\nRightOffset.SetEnabled(false)\n\nUnitStr = theLayout.GetDisplay.GetDistanceUnits.AsS
  728. tring.AsTokens(\"_\").Get(2).LCase\nunitText.SetLabel(\"(\"+UnitStr+\"):\")\n\n\nMTD.Open"
  729. )
  730.  
  731. (Script.90
  732.     Name:    "Graphic.RoundRectCorners"
  733.     SourceCode:    "br = Self.Get(0)\nr = Self.Get(1)\nHStrat = br.GetWidth - (2 * r)\nVStrat = br.GetHeight - (2 * r)\nrStart = HStrat + r\ntStart = r + VStrat\nsp1 = br.ReturnOrigin + (rStart@tStart)\nsp2 = br.ReturnOrigin + (r@tStart)\nsp3 = br.ReturnOrigin + (r@r)\nsp4 = br.ReturnOrigin + (rStart@r)\npList = {}\nfor each u in 0..90 \n  y = u.AsRadians.Sin * r\n  x = u.AsRadians.Cos * r\n  pList.Add((sp1 + (x@y)))\nend\nfor each u in 90..180 \n  y = u.AsRadians.Sin * r\n  x = u.AsRadians.Cos * r\n  pList.Add((sp2 + (x@y)))\nend\nfor each u in 1
  734. 80..270 \n  y = u.AsRadians.Sin * r\n  x = u.AsRadians.Cos * r\n  pList.Add((sp3 + (x@y)))\nend\nfor each u in 270..360 \n  y = u.AsRadians.Sin * r\n  x = u.AsRadians.Cos * r\n  pList.Add((sp4 + (x@y)))\nend\nRCShape = Polygon.Make({pList})\nreturn RCShape"
  735. )
  736.  
  737. (Script.91
  738.     Name:    "Neatline.CanUnload"
  739.     SourceCode:    "return (System.CanUnloadLibrary(self.GetDependencies.Get(0)))"
  740. )
  741.  
  742. (Script.92
  743.     Name:    "Neatline.Unload"
  744.     SourceCode:    "Dialog.DetachFromExtension(self)"
  745. )
  746.  
  747.